;List existing facts.
(facts)

;Create a new Template 'automobile'
(
    deftemplate automobile
		"A specific car."
		(slot make)
		(slot model)
		(slot year (type INTEGER))
		(slot color (default white))
)

(reset)

( 
    assert (
        automobile (model LeBaron) (make Chrysler)
        (year 1997) (color  Yellow)
    )
)

(printout t "After adding a template:" crlf)
(facts)

;Retract the same fact.
(printout t "retract the same fact:" crlf)
(retract 1)
(facts)